/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / lisp / emulators / tpu-extras.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 39 3a 30 | 36 20 31 39 39 35 0a 3b | 13:59:0|6 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 65 6d | 75 6c 61 74 6f 72 73 2f |/lisp/em|ulators/|
|00000090| 74 70 75 2d 65 78 74 72 | 61 73 2e 65 6c 0a 3b 3b |tpu-extr|as.el.;;|
|000000a0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000b0| 31 39 2e 31 33 20 58 45 | 6d 61 63 73 20 4c 75 63 |19.13 XE|macs Luc|
|000000c0| 69 64 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |id..;;; |bytecomp|
|000000d0| 20 76 65 72 73 69 6f 6e | 20 32 2e 32 35 3b 20 31 | version| 2.25; 1|
|000000e0| 2d 53 65 70 2d 39 34 2e | 0a 3b 3b 3b 20 6f 70 74 |-Sep-94.|.;;; opt|
|000000f0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000100| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000110| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000120| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000130| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000140| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000150| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000160| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000170| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000180| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000190| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001a0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001b0| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|000001c0| 28 65 72 72 6f 72 20 22 | 54 68 69 73 20 66 69 6c |(error "|This fil|
|000001d0| 65 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |e was co|mpiled f|
|000001e0| 6f 72 20 45 6d 61 63 73 | 20 31 39 2e 22 29 29 0a |or Emacs| 19.")).|
|000001f0| 0a 28 64 65 66 63 6f 6e | 73 74 20 74 70 75 2d 65 |.(defcon|st tpu-e|
|00000200| 78 74 72 61 73 2d 72 65 | 76 69 73 69 6f 6e 20 22 |xtras-re|vision "|
|00000210| 21 52 65 76 69 73 69 6f | 6e 3a 20 31 2e 36 20 21 |!Revisio|n: 1.6 !|
|00000220| 22 20 22 5c 0a 52 65 76 | 69 73 69 6f 6e 20 6e 75 |" "\.Rev|ision nu|
|00000230| 6d 62 65 72 20 6f 66 20 | 74 68 65 20 54 50 55 2d |mber of |the TPU-|
|00000240| 65 64 74 20 65 78 74 72 | 61 73 2e 22 29 0a 28 64 |edt extr|as.").(d|
|00000250| 65 66 63 6f 6e 73 74 20 | 74 70 75 2d 74 6f 70 2d |efconst |tpu-top-|
|00000260| 73 63 72 6f 6c 6c 2d 6d | 61 72 67 69 6e 20 30 20 |scroll-m|argin 0 |
|00000270| 22 5c 0a 2a 53 63 72 6f | 6c 6c 20 6d 61 72 67 69 |"\.*Scro|ll margi|
|00000280| 6e 20 61 74 20 74 68 65 | 20 74 6f 70 20 6f 66 20 |n at the| top of |
|00000290| 74 68 65 20 73 63 72 65 | 65 6e 2e 0a 49 6e 74 65 |the scre|en..Inte|
|000002a0| 72 70 72 65 74 65 64 20 | 61 73 20 61 20 70 65 72 |rpreted |as a per|
|000002b0| 63 65 6e 74 20 6f 66 20 | 74 68 65 20 63 75 72 72 |cent of |the curr|
|000002c0| 65 6e 74 20 77 69 6e 64 | 6f 77 20 73 69 7a 65 2e |ent wind|ow size.|
|000002d0| 22 29 0a 28 64 65 66 63 | 6f 6e 73 74 20 74 70 75 |").(defc|onst tpu|
|000002e0| 2d 62 6f 74 74 6f 6d 2d | 73 63 72 6f 6c 6c 2d 6d |-bottom-|scroll-m|
|000002f0| 61 72 67 69 6e 20 30 20 | 22 5c 0a 2a 53 63 72 6f |argin 0 |"\.*Scro|
|00000300| 6c 6c 20 6d 61 72 67 69 | 6e 20 61 74 20 74 68 65 |ll margi|n at the|
|00000310| 20 62 6f 74 74 6f 6d 20 | 6f 66 20 74 68 65 20 73 | bottom |of the s|
|00000320| 63 72 65 65 6e 2e 0a 49 | 6e 74 65 72 70 72 65 74 |creen..I|nterpret|
|00000330| 65 64 20 61 73 20 61 20 | 70 65 72 63 65 6e 74 20 |ed as a |percent |
|00000340| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 77 |of the c|urrent w|
|00000350| 69 6e 64 6f 77 20 73 69 | 7a 65 2e 22 29 0a 28 64 |indow si|ze.").(d|
|00000360| 65 66 76 61 72 20 74 70 | 75 2d 62 61 63 6b 77 61 |efvar tp|u-backwa|
|00000370| 72 64 2d 63 68 61 72 2d | 6c 69 6b 65 2d 74 70 75 |rd-char-|like-tpu|
|00000380| 20 74 20 22 5c 0a 2a 49 | 66 20 6e 6f 6e 2d 6e 69 | t "\.*I|f non-ni|
|00000390| 6c 2c 20 69 6e 20 66 72 | 65 65 20 63 75 72 73 6f |l, in fr|ee curso|
|000003a0| 72 20 6d 6f 64 65 20 62 | 61 63 6b 77 61 72 64 2d |r mode b|ackward-|
|000003b0| 63 68 61 72 20 28 6c 65 | 66 74 2d 61 72 72 6f 77 |char (le|ft-arrow|
|000003c0| 29 20 77 6f 72 6b 73 0a | 6a 75 73 74 20 6c 69 6b |) works.|just lik|
|000003d0| 65 20 54 50 55 2f 65 64 | 74 2e 20 20 4f 74 68 65 |e TPU/ed|t.  Othe|
|000003e0| 72 77 69 73 65 2c 20 62 | 61 63 6b 77 61 72 64 2d |rwise, b|ackward-|
|000003f0| 63 68 61 72 20 77 69 6c | 6c 20 6d 6f 76 65 20 74 |char wil|l move t|
|00000400| 6f 20 74 68 65 20 65 6e | 64 20 6f 66 0a 74 68 65 |o the en|d of.the|
|00000410| 20 70 72 65 76 69 6f 75 | 73 20 6c 69 6e 65 20 77 | previou|s line w|
|00000420| 68 65 6e 20 73 74 61 72 | 74 69 6e 67 20 66 72 6f |hen star|ting fro|
|00000430| 6d 20 61 20 6c 69 6e 65 | 20 62 65 67 69 6e 6e 69 |m a line| beginni|
|00000440| 6e 67 2e 22 29 0a 28 64 | 65 66 76 61 72 20 74 70 |ng.").(d|efvar tp|
|00000450| 75 2d 63 75 72 73 6f 72 | 2d 66 72 65 65 20 6e 69 |u-cursor|-free ni|
|00000460| 6c 20 22 5c 0a 49 66 20 | 6e 6f 6e 2d 6e 69 6c 2c |l "\.If |non-nil,|
|00000470| 20 6c 65 74 20 74 68 65 | 20 63 75 72 73 6f 72 20 | let the| cursor |
|00000480| 72 6f 61 6d 20 66 72 65 | 65 2e 22 29 0a 28 62 79 |roam fre|e.").(by|
|00000490| 74 65 2d 63 6f 64 65 20 | 22 08 ab 8b c1 5c 6e 3e |te-code |"....\n>|
|000004a0| ac 8b c1 5c 6e 42 12 aa | 85 c3 c4 c1 5c 22 88 c1 |...\nB..|....\"..|
|000004b0| 87 22 20 5b 74 70 75 2d | 67 6e 75 2d 65 6d 61 63 |." [tpu-|gnu-emac|
|000004c0| 73 31 38 2d 70 20 74 70 | 75 2d 73 65 74 2d 63 75 |s18-p tp|u-set-cu|
|000004d0| 72 73 6f 72 2d 66 72 65 | 65 20 65 64 69 74 2d 70 |rsor-fre|e edit-p|
|000004e0| 69 63 74 75 72 65 2d 68 | 6f 6f 6b 20 61 64 64 2d |icture-h|ook add-|
|000004f0| 68 6f 6f 6b 20 70 69 63 | 74 75 72 65 2d 6d 6f 64 |hook pic|ture-mod|
|00000500| 65 2d 68 6f 6f 6b 5d 20 | 33 29 0a 28 66 73 65 74 |e-hook] |3).(fset|
|00000510| 20 27 74 70 75 2d 77 72 | 69 74 65 2d 66 69 6c 65 | 'tpu-wr|ite-file|
|00000520| 2d 68 6f 6f 6b 20 23 5b | 6e 69 6c 20 22 c0 20 ad |-hook #[|nil ". .|
|00000530| 85 09 ad 82 c2 20 87 22 | 20 5b 62 75 66 66 65 72 |..... ."| [buffer|
|00000540| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 74 70 75 2d |-modifie|d-p tpu-|
|00000550| 63 75 72 73 6f 72 2d 66 | 72 65 65 20 70 69 63 74 |cursor-f|ree pict|
|00000560| 75 72 65 2d 63 6c 65 61 | 6e 5d 20 31 20 22 5c 0a |ure-clea|n] 1 "\.|
|00000570| 45 6c 69 6d 69 6e 61 74 | 65 20 77 68 69 74 65 73 |Eliminat|e whites|
|00000580| 70 61 63 65 20 61 74 20 | 65 6e 64 73 20 6f 66 20 |pace at |ends of |
|00000590| 6c 69 6e 65 73 2c 20 69 | 66 20 74 68 65 20 63 75 |lines, i|f the cu|
|000005a0| 72 73 6f 72 20 69 73 20 | 66 72 65 65 2e 22 5d 29 |rsor is |free."])|
|000005b0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 09 3e |.(byte-c|ode "..>|
|000005c0| ac 84 c0 09 42 11 c0 87 | 22 20 5b 74 70 75 2d 77 |....B...|" [tpu-w|
|000005d0| 72 69 74 65 2d 66 69 6c | 65 2d 68 6f 6f 6b 20 77 |rite-fil|e-hook w|
|000005e0| 72 69 74 65 2d 66 69 6c | 65 2d 68 6f 6f 6b 73 5d |rite-fil|e-hooks]|
|000005f0| 20 32 29 0a 28 66 73 65 | 74 20 27 74 70 75 2d 74 | 2).(fse|t 'tpu-t|
|00000600| 6f 70 2d 63 68 65 63 6b | 20 23 5b 28 62 65 67 20 |op-check| #[(beg |
|00000610| 6c 69 6e 65 73 29 20 22 | c0 20 09 5f c2 a5 1b 0c |lines) "|. ._....|
|00000620| 0b 57 ab 85 c5 0c 21 aa | 8b 0c 0e 06 5a 0b 57 ad |.W....!.|....Z.W.|
|00000630| 83 c5 0b 21 29 87 22 20 | 5b 77 69 6e 64 6f 77 2d |...!)." |[window-|
|00000640| 68 65 69 67 68 74 20 74 | 70 75 2d 74 6f 70 2d 73 |height t|pu-top-s|
|00000650| 63 72 6f 6c 6c 2d 6d 61 | 72 67 69 6e 20 31 30 30 |croll-ma|rgin 100|
|00000660| 20 6d 61 72 67 69 6e 20 | 62 65 67 20 72 65 63 65 | margin |beg rece|
|00000670| 6e 74 65 72 20 6c 69 6e | 65 73 5d 20 32 20 22 5c |nter lin|es] 2 "\|
|00000680| 0a 45 6e 66 6f 72 63 65 | 20 73 63 72 6f 6c 6c 20 |.Enforce| scroll |
|00000690| 6d 61 72 67 69 6e 20 61 | 74 20 74 68 65 20 74 6f |margin a|t the to|
|000006a0| 70 20 6f 66 20 73 63 72 | 65 65 6e 2e 22 5d 29 0a |p of scr|een."]).|
|000006b0| 28 66 73 65 74 20 27 74 | 70 75 2d 62 6f 74 74 6f |(fset 't|pu-botto|
|000006c0| 6d 2d 63 68 65 63 6b 20 | 23 5b 28 62 65 67 20 6c |m-check |#[(beg l|
|000006d0| 69 6e 65 73 29 20 22 c0 | 20 89 19 5c 6e 5f c3 a5 |ines) ".| ..\n_..|
|000006e0| c4 5c 5c 1d 09 0d 5a c4 | 5a 1e 06 0e 07 0e 06 56 |.\\...Z.|Z......V|
|000006f0| ab 86 c8 0e 07 21 aa 8e | 0e 07 0e 09 5c 5c 0e 06 |.....!..|....\\..|
|00000700| 56 ad 84 c8 0d 5b 21 2b | 87 22 20 5b 77 69 6e 64 |V....[!+|." [wind|
|00000710| 6f 77 2d 68 65 69 67 68 | 74 20 68 65 69 67 68 74 |ow-heigh|t height|
|00000720| 20 74 70 75 2d 62 6f 74 | 74 6f 6d 2d 73 63 72 6f | tpu-bot|tom-scro|
|00000730| 6c 6c 2d 6d 61 72 67 69 | 6e 20 31 30 30 20 31 20 |ll-margi|n 100 1 |
|00000740| 6d 61 72 67 69 6e 20 64 | 69 66 66 65 72 65 6e 63 |margin d|ifferenc|
|00000750| 65 20 62 65 67 20 72 65 | 63 65 6e 74 65 72 20 6c |e beg re|center l|
|00000760| 69 6e 65 73 5d 20 33 20 | 22 5c 0a 45 6e 66 6f 72 |ines] 3 |"\.Enfor|
|00000770| 63 65 20 73 63 72 6f 6c | 6c 20 6d 61 72 67 69 6e |ce scrol|l margin|
|00000780| 20 61 74 20 74 68 65 20 | 62 6f 74 74 6f 6d 20 6f | at the |bottom o|
|00000790| 66 20 73 63 72 65 65 6e | 2e 22 5d 29 0a 28 66 73 |f screen|."]).(fs|
|000007a0| 65 74 20 27 74 70 75 2d | 66 6f 72 77 61 72 64 2d |et 'tpu-|forward-|
|000007b0| 63 68 61 72 20 23 5b 28 | 6e 75 6d 29 20 22 08 ab |char #[(|num) "..|
|000007c0| 84 c1 5c 6e 21 87 5c 6e | 75 87 22 20 5b 74 70 75 |..\n!.\n|u." [tpu|
|000007d0| 2d 63 75 72 73 6f 72 2d | 66 72 65 65 20 70 69 63 |-cursor-|free pic|
|000007e0| 74 75 72 65 2d 66 6f 72 | 77 61 72 64 2d 63 6f 6c |ture-for|ward-col|
|000007f0| 75 6d 6e 20 6e 75 6d 5d | 20 32 20 22 5c 0a 4d 6f |umn num]| 2 "\.Mo|
|00000800| 76 65 20 72 69 67 68 74 | 20 41 52 47 20 63 68 61 |ve right| ARG cha|
|00000810| 72 61 63 74 65 72 73 20 | 28 6c 65 66 74 20 69 66 |racters |(left if|
|00000820| 20 41 52 47 20 69 73 20 | 6e 65 67 61 74 69 76 65 | ARG is |negative|
|00000830| 29 2e 22 20 22 70 22 5d | 29 0a 28 66 73 65 74 20 |)." "p"]|).(fset |
|00000840| 27 74 70 75 2d 62 61 63 | 6b 77 61 72 64 2d 63 68 |'tpu-bac|kward-ch|
|00000850| 61 72 20 23 5b 28 6e 75 | 6d 29 20 22 08 ac 84 c1 |ar #[(nu|m) "....|
|00000860| 5c 6e 21 87 0b ab 84 c4 | 5c 6e 21 87 6e ab 8c c1 |\n!.....|\n!.n...|
|00000870| c5 21 88 c6 20 88 c4 5c | 6e 53 21 87 c4 5c 6e 21 |.!.. ..\|nS!..\n!|
|00000880| 87 22 20 5b 74 70 75 2d | 63 75 72 73 6f 72 2d 66 |." [tpu-|cursor-f|
|00000890| 72 65 65 20 62 61 63 6b | 77 61 72 64 2d 63 68 61 |ree back|ward-cha|
|000008a0| 72 20 6e 75 6d 20 74 70 | 75 2d 62 61 63 6b 77 61 |r num tp|u-backwa|
|000008b0| 72 64 2d 63 68 61 72 2d | 6c 69 6b 65 2d 74 70 75 |rd-char-|like-tpu|
|000008c0| 20 70 69 63 74 75 72 65 | 2d 62 61 63 6b 77 61 72 | picture|-backwar|
|000008d0| 64 2d 63 6f 6c 75 6d 6e | 20 31 20 70 69 63 74 75 |d-column| 1 pictu|
|000008e0| 72 65 2d 65 6e 64 2d 6f | 66 2d 6c 69 6e 65 5d 20 |re-end-o|f-line] |
|000008f0| 32 20 22 5c 0a 4d 6f 76 | 65 20 6c 65 66 74 20 41 |2 "\.Mov|e left A|
|00000900| 52 47 20 63 68 61 72 61 | 63 74 65 72 73 20 28 72 |RG chara|cters (r|
|00000910| 69 67 68 74 20 69 66 20 | 41 52 47 20 69 73 20 6e |ight if |ARG is n|
|00000920| 65 67 61 74 69 76 65 29 | 2e 22 20 22 70 22 5d 29 |egative)|." "p"])|
|00000930| 0a 28 66 73 65 74 20 27 | 74 70 75 2d 6e 65 78 74 |.(fset '|tpu-next|
|00000940| 2d 6c 69 6e 65 20 23 5b | 28 6e 75 6d 29 20 22 c0 |-line #[|(num) ".|
|00000950| 20 19 5c 6e ab 89 6d ac | 8a c3 0c 21 88 aa 84 c5 | .\n..m.|...!....|
|00000960| 0c 21 88 c6 09 0c 5c 22 | 88 c7 89 16 08 29 87 22 |.!....\"|.....)."|
|00000970| 20 5b 74 70 75 2d 63 75 | 72 72 65 6e 74 2d 6c 69 | [tpu-cu|rrent-li|
|00000980| 6e 65 20 62 65 67 20 74 | 70 75 2d 63 75 72 73 6f |ne beg t|pu-curso|
|00000990| 72 2d 66 72 65 65 20 70 | 69 63 74 75 72 65 2d 6d |r-free p|icture-m|
|000009a0| 6f 76 65 2d 64 6f 77 6e | 20 6e 75 6d 20 6e 65 78 |ove-down| num nex|
|000009b0| 74 2d 6c 69 6e 65 2d 69 | 6e 74 65 72 6e 61 6c 20 |t-line-i|nternal |
|000009c0| 74 70 75 2d 62 6f 74 74 | 6f 6d 2d 63 68 65 63 6b |tpu-bott|om-check|
|000009d0| 20 6e 65 78 74 2d 6c 69 | 6e 65 20 74 68 69 73 2d | next-li|ne this-|
|000009e0| 63 6f 6d 6d 61 6e 64 5d | 20 33 20 22 5c 0a 4d 6f |command]| 3 "\.Mo|
|000009f0| 76 65 20 74 6f 20 6e 65 | 78 74 20 6c 69 6e 65 2e |ve to ne|xt line.|
|00000a00| 0a 50 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 |.Prefix |argument|
|00000a10| 20 73 65 72 76 65 73 20 | 61 73 20 61 20 72 65 70 | serves |as a rep|
|00000a20| 65 61 74 20 63 6f 75 6e | 74 2e 22 20 22 70 22 5d |eat coun|t." "p"]|
|00000a30| 29 0a 28 66 73 65 74 20 | 27 74 70 75 2d 70 72 65 |).(fset |'tpu-pre|
|00000a40| 76 69 6f 75 73 2d 6c 69 | 6e 65 20 23 5b 28 6e 75 |vious-li|ne #[(nu|
|00000a50| 6d 29 20 22 c0 20 19 5c | 6e ab 86 c3 0c 21 88 aa |m) ". .\|n....!..|
|00000a60| 85 c5 0c 5b 21 88 c6 09 | 0c 5c 22 88 c7 89 16 08 |...[!...|.\".....|
|00000a70| 29 87 22 20 5b 74 70 75 | 2d 63 75 72 72 65 6e 74 |)." [tpu|-current|
|00000a80| 2d 6c 69 6e 65 20 62 65 | 67 20 74 70 75 2d 63 75 |-line be|g tpu-cu|
|00000a90| 72 73 6f 72 2d 66 72 65 | 65 20 70 69 63 74 75 72 |rsor-fre|e pictur|
|00000aa0| 65 2d 6d 6f 76 65 2d 75 | 70 20 6e 75 6d 20 6e 65 |e-move-u|p num ne|
|00000ab0| 78 74 2d 6c 69 6e 65 2d | 69 6e 74 65 72 6e 61 6c |xt-line-|internal|
|00000ac0| 20 74 70 75 2d 74 6f 70 | 2d 63 68 65 63 6b 20 70 | tpu-top|-check p|
|00000ad0| 72 65 76 69 6f 75 73 2d | 6c 69 6e 65 20 74 68 69 |revious-|line thi|
|00000ae0| 73 2d 63 6f 6d 6d 61 6e | 64 5d 20 33 20 22 5c 0a |s-comman|d] 3 "\.|
|00000af0| 4d 6f 76 65 20 74 6f 20 | 70 72 65 76 69 6f 75 73 |Move to |previous|
|00000b00| 20 6c 69 6e 65 2e 0a 50 | 72 65 66 69 78 20 61 72 | line..P|refix ar|
|00000b10| 67 75 6d 65 6e 74 20 73 | 65 72 76 65 73 20 61 73 |gument s|erves as|
|00000b20| 20 61 20 72 65 70 65 61 | 74 20 63 6f 75 6e 74 2e | a repea|t count.|
|00000b30| 22 20 22 70 22 5d 29 0a | 28 66 73 65 74 20 27 74 |" "p"]).|(fset 't|
|00000b40| 70 75 2d 6e 65 78 74 2d | 62 65 67 69 6e 6e 69 6e |pu-next-|beginnin|
|00000b50| 67 2d 6f 66 2d 6c 69 6e | 65 20 23 5b 28 6e 75 6d |g-of-lin|e #[(num|
|00000b60| 29 20 22 c0 20 19 c2 c3 | 21 88 c3 0c 5a 79 88 c5 |) ". ...|!...Zy..|
|00000b70| 09 0c 5c 22 29 87 22 20 | 5b 74 70 75 2d 63 75 72 |..\")." |[tpu-cur|
|00000b80| 72 65 6e 74 2d 6c 69 6e | 65 20 62 65 67 20 62 61 |rent-lin|e beg ba|
|00000b90| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 31 20 6e 75 |ckward-c|har 1 nu|
|00000ba0| 6d 20 74 70 75 2d 74 6f | 70 2d 63 68 65 63 6b 5d |m tpu-to|p-check]|
|00000bb0| 20 33 20 22 5c 0a 4d 6f | 76 65 20 74 6f 20 62 65 | 3 "\.Mo|ve to be|
|00000bc0| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 6c 69 6e 65 3b |ginning |of line;|
|00000bd0| 20 69 66 20 61 74 20 62 | 65 67 69 6e 6e 69 6e 67 | if at b|eginning|
|00000be0| 2c 20 6d 6f 76 65 20 74 | 6f 20 62 65 67 69 6e 6e |, move t|o beginn|
|00000bf0| 69 6e 67 20 6f 66 20 6e | 65 78 74 20 6c 69 6e 65 |ing of n|ext line|
|00000c00| 2e 0a 41 63 63 65 70 74 | 73 20 61 20 70 72 65 66 |..Accept|s a pref|
|00000c10| 69 78 20 61 72 67 75 6d | 65 6e 74 20 66 6f 72 20 |ix argum|ent for |
|00000c20| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |the numb|er of li|
|00000c30| 6e 65 73 20 74 6f 20 6d | 6f 76 65 2e 22 20 22 70 |nes to m|ove." "p|
|00000c40| 22 5d 29 0a 28 66 73 65 | 74 20 27 74 70 75 2d 6e |"]).(fse|t 'tpu-n|
|00000c50| 65 78 74 2d 65 6e 64 2d | 6f 66 2d 6c 69 6e 65 20 |ext-end-|of-line |
|00000c60| 23 5b 28 6e 75 6d 29 20 | 22 c0 20 19 5c 6e ab 9b |#[(num) |". .\n..|
|00000c70| 60 19 c3 0c 57 ab 83 0c | 79 88 c5 20 88 60 09 58 |`...W...|y.. .`.X|
|00000c80| ab 86 c6 79 88 c5 20 88 | 29 aa 86 c6 75 88 0c 7f |...y.. .|)...u...|
|00000c90| 88 c7 09 0c 5c 22 29 87 | 22 20 5b 74 70 75 2d 63 |....\").|" [tpu-c|
|00000ca0| 75 72 72 65 6e 74 2d 6c | 69 6e 65 20 62 65 67 20 |urrent-l|ine beg |
|00000cb0| 74 70 75 2d 63 75 72 73 | 6f 72 2d 66 72 65 65 20 |tpu-curs|or-free |
|00000cc0| 31 20 6e 75 6d 20 70 69 | 63 74 75 72 65 2d 65 6e |1 num pi|cture-en|
|00000cd0| 64 2d 6f 66 2d 6c 69 6e | 65 20 6e 69 6c 20 74 70 |d-of-lin|e nil tp|
|00000ce0| 75 2d 62 6f 74 74 6f 6d | 2d 63 68 65 63 6b 5d 20 |u-bottom|-check] |
|00000cf0| 33 20 22 5c 0a 4d 6f 76 | 65 20 74 6f 20 65 6e 64 |3 "\.Mov|e to end|
|00000d00| 20 6f 66 20 6c 69 6e 65 | 3b 20 69 66 20 61 74 20 | of line|; if at |
|00000d10| 65 6e 64 2c 20 6d 6f 76 | 65 20 74 6f 20 65 6e 64 |end, mov|e to end|
|00000d20| 20 6f 66 20 6e 65 78 74 | 20 6c 69 6e 65 2e 0a 41 | of next| line..A|
|00000d30| 63 63 65 70 74 73 20 61 | 20 70 72 65 66 69 78 20 |ccepts a| prefix |
|00000d40| 61 72 67 75 6d 65 6e 74 | 20 66 6f 72 20 74 68 65 |argument| for the|
|00000d50| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|00000d60| 20 74 6f 20 6d 6f 76 65 | 2e 22 20 22 70 22 5d 29 | to move|." "p"])|
|00000d70| 0a 28 66 73 65 74 20 27 | 74 70 75 2d 70 72 65 76 |.(fset '|tpu-prev|
|00000d80| 69 6f 75 73 2d 65 6e 64 | 2d 6f 66 2d 6c 69 6e 65 |ious-end|-of-line|
|00000d90| 20 23 5b 28 6e 75 6d 29 | 20 22 c0 20 19 5c 6e ab | #[(num)| ". .\n.|
|00000da0| 88 c3 c4 0d 5a 21 88 aa | 85 c4 0d 5a 7f 88 c6 09 |....Z!..|...Z....|
|00000db0| 0d 5c 22 29 87 22 20 5b | 74 70 75 2d 63 75 72 72 |.\")." [|tpu-curr|
|00000dc0| 65 6e 74 2d 6c 69 6e 65 | 20 62 65 67 20 74 70 75 |ent-line| beg tpu|
|00000dd0| 2d 63 75 72 73 6f 72 2d | 66 72 65 65 20 70 69 63 |-cursor-|free pic|
|00000de0| 74 75 72 65 2d 65 6e 64 | 2d 6f 66 2d 6c 69 6e 65 |ture-end|-of-line|
|00000df0| 20 31 20 6e 75 6d 20 74 | 70 75 2d 74 6f 70 2d 63 | 1 num t|pu-top-c|
|00000e00| 68 65 63 6b 5d 20 33 20 | 22 5c 0a 4d 6f 76 65 20 |heck] 3 |"\.Move |
|00000e10| 45 4f 4c 20 75 70 77 61 | 72 64 2e 0a 41 63 63 65 |EOL upwa|rd..Acce|
|00000e20| 70 74 73 20 61 20 70 72 | 65 66 69 78 20 61 72 67 |pts a pr|efix arg|
|00000e30| 75 6d 65 6e 74 20 66 6f | 72 20 74 68 65 20 6e 75 |ument fo|r the nu|
|00000e40| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 73 20 74 6f |mber of |lines to|
|00000e50| 20 6d 6f 76 65 2e 22 20 | 22 70 22 5d 29 0a 28 66 | move." |"p"]).(f|
|00000e60| 73 65 74 20 27 74 70 75 | 2d 63 75 72 72 65 6e 74 |set 'tpu|-current|
|00000e70| 2d 65 6e 64 2d 6f 66 2d | 6c 69 6e 65 20 23 5b 6e |-end-of-|line #[n|
|00000e80| 69 6c 20 22 60 18 09 ab | 85 c2 20 88 aa 83 c3 7f |il "`...|.. .....|
|00000e90| 88 08 60 55 ad 83 c4 c5 | 21 29 87 22 20 5b 62 65 |..`U....|!)." [be|
|00000ea0| 67 20 74 70 75 2d 63 75 | 72 73 6f 72 2d 66 72 65 |g tpu-cu|rsor-fre|
|00000eb0| 65 20 70 69 63 74 75 72 | 65 2d 65 6e 64 2d 6f 66 |e pictur|e-end-of|
|00000ec0| 2d 6c 69 6e 65 20 6e 69 | 6c 20 6d 65 73 73 61 67 |-line ni|l messag|
|00000ed0| 65 20 22 59 6f 75 20 61 | 72 65 20 61 6c 72 65 61 |e "You a|re alrea|
|00000ee0| 64 79 20 61 74 20 74 68 | 65 20 65 6e 64 20 6f 66 |dy at th|e end of|
|00000ef0| 20 61 20 6c 69 6e 65 2e | 22 5d 20 32 20 22 5c 0a | a line.|"] 2 "\.|
|00000f00| 4d 6f 76 65 20 70 6f 69 | 6e 74 20 74 6f 20 65 6e |Move poi|nt to en|
|00000f10| 64 20 6f 66 20 63 75 72 | 72 65 6e 74 20 6c 69 6e |d of cur|rent lin|
|00000f20| 65 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |e." nil]|).(fset |
|00000f30| 27 74 70 75 2d 66 6f 72 | 77 61 72 64 2d 6c 69 6e |'tpu-for|ward-lin|
|00000f40| 65 20 23 5b 28 6e 75 6d | 29 20 22 c0 20 19 c2 0b |e #[(num|) ". ...|
|00000f50| 21 88 c4 09 0b 5c 22 88 | c5 79 88 29 c6 87 22 20 |!....\".|.y.).." |
|00000f60| 5b 74 70 75 2d 63 75 72 | 72 65 6e 74 2d 6c 69 6e |[tpu-cur|rent-lin|
|00000f70| 65 20 62 65 67 20 6e 65 | 78 74 2d 6c 69 6e 65 2d |e beg ne|xt-line-|
|00000f80| 69 6e 74 65 72 6e 61 6c | 20 6e 75 6d 20 74 70 75 |internal| num tpu|
|00000f90| 2d 62 6f 74 74 6f 6d 2d | 63 68 65 63 6b 20 30 20 |-bottom-|check 0 |
|00000fa0| 6e 69 6c 5d 20 33 20 22 | 5c 0a 4d 6f 76 65 20 74 |nil] 3 "|\.Move t|
|00000fb0| 6f 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 6e |o beginn|ing of n|
|00000fc0| 65 78 74 20 6c 69 6e 65 | 2e 0a 50 72 65 66 69 78 |ext line|..Prefix|
|00000fd0| 20 61 72 67 75 6d 65 6e | 74 20 73 65 72 76 65 73 | argumen|t serves|
|00000fe0| 20 61 73 20 61 20 72 65 | 70 65 61 74 20 63 6f 75 | as a re|peat cou|
|00000ff0| 6e 74 2e 22 20 22 70 22 | 5d 29 0a 28 66 73 65 74 |nt." "p"|]).(fset|
|00001000| 20 27 74 70 75 2d 62 61 | 63 6b 77 61 72 64 2d 6c | 'tpu-ba|ckward-l|
|00001010| 69 6e 65 20 23 5b 28 6e | 75 6d 29 20 22 c0 20 19 |ine #[(n|um) ". .|
|00001020| c2 0b 5b 21 88 c4 09 0b | 5c 22 88 c5 79 88 29 c6 |..[!....|\"..y.).|
|00001030| 87 22 20 5b 74 70 75 2d | 63 75 72 72 65 6e 74 2d |." [tpu-|current-|
|00001040| 6c 69 6e 65 20 62 65 67 | 20 6e 65 78 74 2d 6c 69 |line beg| next-li|
|00001050| 6e 65 2d 69 6e 74 65 72 | 6e 61 6c 20 6e 75 6d 20 |ne-inter|nal num |
|00001060| 74 70 75 2d 74 6f 70 2d | 63 68 65 63 6b 20 30 20 |tpu-top-|check 0 |
|00001070| 6e 69 6c 5d 20 33 20 22 | 5c 0a 4d 6f 76 65 20 74 |nil] 3 "|\.Move t|
|00001080| 6f 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 70 |o beginn|ing of p|
|00001090| 72 65 76 69 6f 75 73 20 | 6c 69 6e 65 2e 0a 50 72 |revious |line..Pr|
|000010a0| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 73 65 |efix arg|ument se|
|000010b0| 72 76 65 73 20 61 73 20 | 72 65 70 65 61 74 20 63 |rves as |repeat c|
|000010c0| 6f 75 6e 74 2e 22 20 22 | 70 22 5d 29 0a 28 66 73 |ount." "|p"]).(fs|
|000010d0| 65 74 20 27 74 70 75 2d | 70 61 72 61 67 72 61 70 |et 'tpu-|paragrap|
|000010e0| 68 20 23 5b 28 6e 75 6d | 29 20 22 c0 19 c2 20 1b |h #[(num|) "... .|
|000010f0| c4 20 1d 0e 06 c7 55 ab | 83 c8 aa 82 0e 06 1e 09 |. ....U.|........|
|00001100| 0e 5c 6e c7 55 ab 83 cb | aa 82 0e 5c 6e 1e 0c 0d |.\n.U...|...\n...|
|00001110| 0e 09 5f cd a5 1e 0e 0d | 0e 0c 5f cd a5 cf 5c 5c |.._.....|.._...\\|
|00001120| 1e 10 0b 0d 0e 10 5a cf | 5a 5d 1e 11 8a d2 0e 0e |......Z.|Z]......|
|00001130| 21 88 60 29 1e 13 8a d2 | 0e 11 21 88 60 29 1e 14 |!.`)....|..!.`)..|
|00001140| 8a 0e 14 62 88 0d d5 5a | 79 88 60 29 1e 16 0e 17 |...b...Z|y.`)....|
|00001150| ab af d8 0e 19 21 88 60 | 0e 16 56 ab 98 8a 0d 79 |.....!.`|..V....y|
|00001160| 29 89 11 c7 55 ab 86 da | 0e 0e 21 aa a5 da 09 0e |)...U...|..!.....|
|00001170| 10 5a 21 aa 9d 60 0e 14 | 56 ad 97 da 0e 11 21 aa |.Z!..`..|V.....!.|
|00001180| 91 db 0e 19 21 88 60 0e | 13 57 ad 86 da 0b 0e 0e |....!.`.|.W......|
|00001190| 5e 21 2e 0b 87 22 20 5b | 6e 69 6c 20 6c 65 66 74 |^!..." [|nil left|
|000011a0| 20 74 70 75 2d 63 75 72 | 72 65 6e 74 2d 6c 69 6e | tpu-cur|rent-lin|
|000011b0| 65 20 62 65 67 20 77 69 | 6e 64 6f 77 2d 68 65 69 |e beg wi|ndow-hei|
|000011c0| 67 68 74 20 68 65 69 67 | 68 74 20 74 70 75 2d 74 |ght heig|ht tpu-t|
|000011d0| 6f 70 2d 73 63 72 6f 6c | 6c 2d 6d 61 72 67 69 6e |op-scrol|l-margin|
|000011e0| 20 30 20 31 30 20 74 6f | 70 2d 70 65 72 63 65 6e | 0 10 to|p-percen|
|000011f0| 74 20 74 70 75 2d 62 6f | 74 74 6f 6d 2d 73 63 72 |t tpu-bo|ttom-scr|
|00001200| 6f 6c 6c 2d 6d 61 72 67 | 69 6e 20 31 35 20 62 6f |oll-marg|in 15 bo|
|00001210| 74 74 6f 6d 2d 70 65 72 | 63 65 6e 74 20 31 30 30 |ttom-per|cent 100|
|00001220| 20 74 6f 70 2d 6d 61 72 | 67 69 6e 20 31 20 62 6f | top-mar|gin 1 bo|
|00001230| 74 74 6f 6d 2d 75 70 2d | 6d 61 72 67 69 6e 20 62 |ttom-up-|margin b|
|00001240| 6f 74 74 6f 6d 2d 6d 61 | 72 67 69 6e 20 6d 6f 76 |ottom-ma|rgin mov|
|00001250| 65 2d 74 6f 2d 77 69 6e | 64 6f 77 2d 6c 69 6e 65 |e-to-win|dow-line|
|00001260| 20 74 6f 70 20 62 6f 74 | 74 6f 6d 20 32 20 66 61 | top bot|tom 2 fa|
|00001270| 72 20 74 70 75 2d 61 64 | 76 61 6e 63 65 20 74 70 |r tpu-ad|vance tp|
|00001280| 75 2d 6e 65 78 74 2d 70 | 61 72 61 67 72 61 70 68 |u-next-p|aragraph|
|00001290| 20 6e 75 6d 20 72 65 63 | 65 6e 74 65 72 20 74 70 | num rec|enter tp|
|000012a0| 75 2d 70 72 65 76 69 6f | 75 73 2d 70 61 72 61 67 |u-previo|us-parag|
|000012b0| 72 61 70 68 5d 20 34 20 | 22 5c 0a 4d 6f 76 65 20 |raph] 4 |"\.Move |
|000012c0| 74 6f 20 74 68 65 20 6e | 65 78 74 20 70 61 72 61 |to the n|ext para|
|000012d0| 67 72 61 70 68 20 69 6e | 20 74 68 65 20 63 75 72 |graph in| the cur|
|000012e0| 72 65 6e 74 20 64 69 72 | 65 63 74 69 6f 6e 2e 0a |rent dir|ection..|
|000012f0| 41 20 72 65 70 65 61 74 | 20 63 6f 75 6e 74 20 6d |A repeat| count m|
|00001300| 65 61 6e 73 20 6d 6f 76 | 65 20 74 68 61 74 20 6d |eans mov|e that m|
|00001310| 61 6e 79 20 70 61 72 61 | 67 72 61 70 68 73 2e 22 |any para|graphs."|
|00001320| 20 22 70 22 5d 29 0a 28 | 66 73 65 74 20 27 74 70 | "p"]).(|fset 'tp|
|00001330| 75 2d 70 61 67 65 20 23 | 5b 28 6e 75 6d 29 20 22 |u-page #|[(num) "|
|00001340| c0 19 c2 20 1b c4 20 1d | 0e 06 c7 55 ab 83 c8 aa |... .. .|...U....|
|00001350| 82 0e 06 1e 09 0e 5c 6e | c7 55 ab 83 cb aa 82 0e |......\n|.U......|
|00001360| 5c 6e 1e 0c 0d 0e 09 5f | cd a5 1e 0e 0d 0e 0c 5f |\n....._|......._|
|00001370| cd a5 cf 5c 5c 1e 10 0b | 0d 0e 10 5a cf 5a 5d 1e |...\\...|...Z.Z].|
|00001380| 11 8a d2 0e 0e 21 88 60 | 29 1e 13 8a d2 0e 11 21 |.....!.`|)......!|
|00001390| 88 60 29 1e 14 8a 0e 14 | 62 88 0d d5 5a 79 88 60 |.`).....|b...Zy.`|
|000013a0| 29 1e 16 0e 17 ab af d8 | 0e 19 21 88 60 0e 16 56 |).......|..!.`..V|
|000013b0| ab 98 8a 0d 79 29 89 11 | c7 55 ab 86 da 0e 0e 21 |....y)..|.U.....!|
|000013c0| aa a5 da 09 0e 10 5a 21 | aa 9d 60 0e 14 56 ad 97 |......Z!|..`..V..|
|000013d0| da 0e 11 21 aa 91 db 0e | 19 21 88 60 0e 13 57 ad |...!....|.!.`..W.|
|000013e0| 86 da 0b 0e 0e 5e 21 2e | 0b 87 22 20 5b 6e 69 6c |.....^!.|.." [nil|
|000013f0| 20 6c 65 66 74 20 74 70 | 75 2d 63 75 72 72 65 6e | left tp|u-curren|
|00001400| 74 2d 6c 69 6e 65 20 62 | 65 67 20 77 69 6e 64 6f |t-line b|eg windo|
|00001410| 77 2d 68 65 69 67 68 74 | 20 68 65 69 67 68 74 20 |w-height| height |
|00001420| 74 70 75 2d 74 6f 70 2d | 73 63 72 6f 6c 6c 2d 6d |tpu-top-|scroll-m|
|00001430| 61 72 67 69 6e 20 30 20 | 31 30 20 74 6f 70 2d 70 |argin 0 |10 top-p|
|00001440| 65 72 63 65 6e 74 20 74 | 70 75 2d 62 6f 74 74 6f |ercent t|pu-botto|
|00001450| 6d 2d 73 63 72 6f 6c 6c | 2d 6d 61 72 67 69 6e 20 |m-scroll|-margin |
|00001460| 31 35 20 62 6f 74 74 6f | 6d 2d 70 65 72 63 65 6e |15 botto|m-percen|
|00001470| 74 20 31 30 30 20 74 6f | 70 2d 6d 61 72 67 69 6e |t 100 to|p-margin|
|00001480| 20 31 20 62 6f 74 74 6f | 6d 2d 75 70 2d 6d 61 72 | 1 botto|m-up-mar|
|00001490| 67 69 6e 20 62 6f 74 74 | 6f 6d 2d 6d 61 72 67 69 |gin bott|om-margi|
|000014a0| 6e 20 6d 6f 76 65 2d 74 | 6f 2d 77 69 6e 64 6f 77 |n move-t|o-window|
|000014b0| 2d 6c 69 6e 65 20 74 6f | 70 20 62 6f 74 74 6f 6d |-line to|p bottom|
|000014c0| 20 32 20 66 61 72 20 74 | 70 75 2d 61 64 76 61 6e | 2 far t|pu-advan|
|000014d0| 63 65 20 66 6f 72 77 61 | 72 64 2d 70 61 67 65 20 |ce forwa|rd-page |
|000014e0| 6e 75 6d 20 72 65 63 65 | 6e 74 65 72 20 62 61 63 |num rece|nter bac|
|000014f0| 6b 77 61 72 64 2d 70 61 | 67 65 5d 20 34 20 22 5c |kward-pa|ge] 4 "\|
|00001500| 0a 4d 6f 76 65 20 74 6f | 20 74 68 65 20 6e 65 78 |.Move to| the nex|
|00001510| 74 20 70 61 67 65 20 69 | 6e 20 74 68 65 20 63 75 |t page i|n the cu|
|00001520| 72 72 65 6e 74 20 64 69 | 72 65 63 74 69 6f 6e 2e |rrent di|rection.|
|00001530| 0a 41 20 72 65 70 65 61 | 74 20 63 6f 75 6e 74 20 |.A repea|t count |
|00001540| 6d 65 61 6e 73 20 6d 6f | 76 65 20 74 68 61 74 20 |means mo|ve that |
|00001550| 6d 61 6e 79 20 70 61 67 | 65 73 2e 22 20 22 70 22 |many pag|es." "p"|
|00001560| 5d 29 0a 28 66 73 65 74 | 20 27 74 70 75 2d 73 63 |]).(fset| 'tpu-sc|
|00001570| 72 6f 6c 6c 2d 77 69 6e | 64 6f 77 2d 64 6f 77 6e |roll-win|dow-down|
|00001580| 20 23 5b 28 6e 75 6d 29 | 20 22 c0 20 19 c2 20 53 | #[(num)| ". .. S|
|00001590| 1b 0c 0b 0d 5f c6 a5 5f | 1e 07 c8 0e 07 5b 21 88 |...._.._|.....[!.|
|000015a0| c9 09 0e 07 5c 22 2b 87 | 22 20 5b 74 70 75 2d 63 |....\"+.|" [tpu-c|
|000015b0| 75 72 72 65 6e 74 2d 6c | 69 6e 65 20 62 65 67 20 |urrent-l|ine beg |
|000015c0| 77 69 6e 64 6f 77 2d 68 | 65 69 67 68 74 20 68 65 |window-h|eight he|
|000015d0| 69 67 68 74 20 6e 75 6d | 20 74 70 75 2d 70 65 72 |ight num| tpu-per|
|000015e0| 63 65 6e 74 2d 73 63 72 | 6f 6c 6c 20 31 30 30 20 |cent-scr|oll 100 |
|000015f0| 6c 69 6e 65 73 20 6e 65 | 78 74 2d 6c 69 6e 65 2d |lines ne|xt-line-|
|00001600| 69 6e 74 65 72 6e 61 6c | 20 74 70 75 2d 74 6f 70 |internal| tpu-top|
|00001610| 2d 63 68 65 63 6b 5d 20 | 33 20 22 5c 0a 53 63 72 |-check] |3 "\.Scr|
|00001620| 6f 6c 6c 20 74 68 65 20 | 64 69 73 70 6c 61 79 20 |oll the |display |
|00001630| 64 6f 77 6e 20 74 6f 20 | 74 68 65 20 6e 65 78 74 |down to |the next|
|00001640| 20 73 65 63 74 69 6f 6e | 2e 0a 41 20 72 65 70 65 | section|..A repe|
|00001650| 61 74 20 63 6f 75 6e 74 | 20 6d 65 61 6e 73 20 73 |at count| means s|
|00001660| 63 72 6f 6c 6c 20 74 68 | 61 74 20 6d 61 6e 79 20 |croll th|at many |
|00001670| 73 65 63 74 69 6f 6e 73 | 2e 22 20 22 70 22 5d 29 |sections|." "p"])|
|00001680| 0a 28 66 73 65 74 20 27 | 74 70 75 2d 73 63 72 6f |.(fset '|tpu-scro|
|00001690| 6c 6c 2d 77 69 6e 64 6f | 77 2d 75 70 20 23 5b 28 |ll-windo|w-up #[(|
|000016a0| 6e 75 6d 29 20 22 c0 20 | 19 c2 20 53 1b 0c 0b 0d |num) ". |.. S....|
|000016b0| 5f c6 a5 5f 1e 07 c8 0e | 07 21 88 c9 09 0e 07 5c |_.._....|.!.....\|
|000016c0| 22 2b 87 22 20 5b 74 70 | 75 2d 63 75 72 72 65 6e |"+." [tp|u-curren|
|000016d0| 74 2d 6c 69 6e 65 20 62 | 65 67 20 77 69 6e 64 6f |t-line b|eg windo|
|000016e0| 77 2d 68 65 69 67 68 74 | 20 68 65 69 67 68 74 20 |w-height| height |
|000016f0| 6e 75 6d 20 74 70 75 2d | 70 65 72 63 65 6e 74 2d |num tpu-|percent-|
|00001700| 73 63 72 6f 6c 6c 20 31 | 30 30 20 6c 69 6e 65 73 |scroll 1|00 lines|
|00001710| 20 6e 65 78 74 2d 6c 69 | 6e 65 2d 69 6e 74 65 72 | next-li|ne-inter|
|00001720| 6e 61 6c 20 74 70 75 2d | 62 6f 74 74 6f 6d 2d 63 |nal tpu-|bottom-c|
|00001730| 68 65 63 6b 5d 20 33 20 | 22 5c 0a 53 63 72 6f 6c |heck] 3 |"\.Scrol|
|00001740| 6c 20 74 68 65 20 64 69 | 73 70 6c 61 79 20 75 70 |l the di|splay up|
|00001750| 20 74 6f 20 74 68 65 20 | 6e 65 78 74 20 73 65 63 | to the |next sec|
|00001760| 74 69 6f 6e 2e 0a 41 20 | 72 65 70 65 61 74 20 63 |tion..A |repeat c|
|00001770| 6f 75 6e 74 20 6d 65 61 | 6e 73 20 73 63 72 6f 6c |ount mea|ns scrol|
|00001780| 6c 20 74 68 61 74 20 6d | 61 6e 79 20 73 65 63 74 |l that m|any sect|
|00001790| 69 6f 6e 73 2e 22 20 22 | 70 22 5d 29 0a 28 66 73 |ions." "|p"]).(fs|
|000017a0| 65 74 20 27 74 70 75 2d | 73 65 61 72 63 68 2d 69 |et 'tpu-|search-i|
|000017b0| 6e 74 65 72 6e 61 6c 20 | 23 5b 28 70 61 74 20 26 |nternal |#[(pat &|
|000017c0| 6f 70 74 69 6f 6e 61 6c | 20 71 75 69 65 74 29 20 |optional| quiet) |
|000017d0| 22 c0 19 c2 20 1b c4 20 | 1d 0e 06 c7 55 ab 83 c8 |"... .. |....U...|
|000017e0| aa 82 0e 06 1e 09 0e 5c | 6e c7 55 ab 83 cb aa 82 |.......\|n.U.....|
|000017f0| 0e 5c 6e 1e 0c 0d 0e 09 | 5f cd a5 1e 0e 0d 0e 0c |.\n.....|_.......|
|00001800| 5f cd a5 cf 5c 5c 1e 10 | 0b 0d 0e 10 5a cf 5a 5d |_...\\..|....Z.Z]|
|00001810| 1e 11 8a d2 0e 0e 21 88 | 60 29 1e 13 8a d2 0e 11 |......!.|`)......|
|00001820| 21 88 60 29 1e 14 8a 0e | 14 62 88 0d d5 5a 79 88 |!.`)....|.b...Zy.|
|00001830| 60 29 1e 16 d7 0e 18 0e | 19 5c 22 88 0e 1a ab aa |`)......|.\".....|
|00001840| 60 0e 16 56 ab 98 8a 0d | 79 29 89 11 c7 55 ab 86 |`..V....|y)...U..|
|00001850| db 0e 0e 21 aa a0 db 09 | 0e 10 5a 21 aa 98 60 0e |...!....|..Z!..`.|
|00001860| 14 56 ad 92 db 0e 11 21 | aa 8c 60 0e 13 57 ad 86 |.V.....!|..`..W..|
|00001870| db 0b 0e 0e 5e 21 2e 0b | 87 22 20 5b 6e 69 6c 20 |....^!..|." [nil |
|00001880| 6c 65 66 74 20 74 70 75 | 2d 63 75 72 72 65 6e 74 |left tpu|-current|
|00001890| 2d 6c 69 6e 65 20 62 65 | 67 20 77 69 6e 64 6f 77 |-line be|g window|
|000018a0| 2d 68 65 69 67 68 74 20 | 68 65 69 67 68 74 20 74 |-height |height t|
|000018b0| 70 75 2d 74 6f 70 2d 73 | 63 72 6f 6c 6c 2d 6d 61 |pu-top-s|croll-ma|
|000018c0| 72 67 69 6e 20 30 20 31 | 30 20 74 6f 70 2d 70 65 |rgin 0 1|0 top-pe|
|000018d0| 72 63 65 6e 74 20 74 70 | 75 2d 62 6f 74 74 6f 6d |rcent tp|u-bottom|
|000018e0| 2d 73 63 72 6f 6c 6c 2d | 6d 61 72 67 69 6e 20 31 |-scroll-|margin 1|
|000018f0| 35 20 62 6f 74 74 6f 6d | 2d 70 65 72 63 65 6e 74 |5 bottom|-percent|
|00001900| 20 31 30 30 20 74 6f 70 | 2d 6d 61 72 67 69 6e 20 | 100 top|-margin |
|00001910| 31 20 62 6f 74 74 6f 6d | 2d 75 70 2d 6d 61 72 67 |1 bottom|-up-marg|
|00001920| 69 6e 20 62 6f 74 74 6f | 6d 2d 6d 61 72 67 69 6e |in botto|m-margin|
|00001930| 20 6d 6f 76 65 2d 74 6f | 2d 77 69 6e 64 6f 77 2d | move-to|-window-|
|00001940| 6c 69 6e 65 20 74 6f 70 | 20 62 6f 74 74 6f 6d 20 |line top| bottom |
|00001950| 32 20 66 61 72 20 74 70 | 75 2d 73 65 61 72 63 68 |2 far tp|u-search|
|00001960| 2d 69 6e 74 65 72 6e 61 | 6c 2d 63 6f 72 65 20 70 |-interna|l-core p|
|00001970| 61 74 20 71 75 69 65 74 | 20 74 70 75 2d 73 65 61 |at quiet| tpu-sea|
|00001980| 72 63 68 69 6e 67 2d 66 | 6f 72 77 61 72 64 20 72 |rching-f|orward r|
|00001990| 65 63 65 6e 74 65 72 5d | 20 34 20 22 5c 0a 53 65 |ecenter]| 4 "\.Se|
|000019a0| 61 72 63 68 20 66 6f 72 | 20 61 20 73 74 72 69 6e |arch for| a strin|
|000019b0| 67 20 6f 72 20 72 65 67 | 75 6c 61 72 20 65 78 70 |g or reg|ular exp|
|000019c0| 72 65 73 73 69 6f 6e 2e | 22 5d 29 0a 28 62 79 74 |ression.|"]).(byt|
|000019d0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 ac 85 c1 c2 4b |e-code "|..!....K|
|000019e0| 4d 88 c0 c3 21 ac 85 c3 | c4 4b 4d 88 c0 c5 21 ac |M...!...|.KM...!.|
|000019f0| 85 c5 c6 4b 4d 88 c0 87 | 22 20 5b 66 62 6f 75 6e |...KM...|" [fboun|
|00001a00| 64 70 20 74 70 75 2d 6f | 6c 64 2d 6e 65 77 6c 69 |dp tpu-o|ld-newli|
|00001a10| 6e 65 20 6e 65 77 6c 69 | 6e 65 20 74 70 75 2d 6f |ne newli|ne tpu-o|
|00001a20| 6c 64 2d 64 6f 2d 61 75 | 74 6f 2d 66 69 6c 6c 20 |ld-do-au|to-fill |
|00001a30| 64 6f 2d 61 75 74 6f 2d | 66 69 6c 6c 20 74 70 75 |do-auto-|fill tpu|
|00001a40| 2d 6f 6c 64 2d 6e 65 77 | 6c 69 6e 65 2d 61 6e 64 |-old-new|line-and|
|00001a50| 2d 69 6e 64 65 6e 74 20 | 6e 65 77 6c 69 6e 65 2d |-indent |newline-|
|00001a60| 61 6e 64 2d 69 6e 64 65 | 6e 74 5d 20 32 29 0a 28 |and-inde|nt] 2).(|
|00001a70| 66 73 65 74 20 27 6e 65 | 77 6c 69 6e 65 20 23 5b |fset 'ne|wline #[|
|00001a80| 28 26 6f 70 74 69 6f 6e | 61 6c 20 6e 75 6d 29 20 |(&option|al num) |
|00001a90| 22 c0 20 19 5c 6e ac 82 | c3 12 c4 5c 6e 21 88 c5 |". .\n..|...\n!..|
|00001aa0| 09 5c 6e 5c 22 29 87 22 | 20 5b 74 70 75 2d 63 75 |.\n\")."| [tpu-cu|
|00001ab0| 72 72 65 6e 74 2d 6c 69 | 6e 65 20 62 65 67 20 6e |rrent-li|ne beg n|
|00001ac0| 75 6d 20 31 20 74 70 75 | 2d 6f 6c 64 2d 6e 65 77 |um 1 tpu|-old-new|
|00001ad0| 6c 69 6e 65 20 74 70 75 | 2d 62 6f 74 74 6f 6d 2d |line tpu|-bottom-|
|00001ae0| 63 68 65 63 6b 5d 20 33 | 20 22 5c 0a 49 6e 73 65 |check] 3| "\.Inse|
|00001af0| 72 74 20 61 20 6e 65 77 | 6c 69 6e 65 2e 20 20 57 |rt a new|line.  W|
|00001b00| 69 74 68 20 61 72 67 2c | 20 69 6e 73 65 72 74 20 |ith arg,| insert |
|00001b10| 74 68 61 74 20 6d 61 6e | 79 20 6e 65 77 6c 69 6e |that man|y newlin|
|00001b20| 65 73 2e 0a 49 6e 20 41 | 75 74 6f 20 46 69 6c 6c |es..In A|uto Fill|
|00001b30| 20 6d 6f 64 65 2c 20 63 | 61 6e 20 62 72 65 61 6b | mode, c|an break|
|00001b40| 20 74 68 65 20 70 72 65 | 63 65 64 69 6e 67 20 6c | the pre|ceding l|
|00001b50| 69 6e 65 20 69 66 20 6e | 6f 20 6e 75 6d 65 72 69 |ine if n|o numeri|
|00001b60| 63 20 61 72 67 2e 0a 54 | 68 69 73 20 69 73 20 74 |c arg..T|his is t|
|00001b70| 68 65 20 54 50 55 2d 65 | 64 74 20 76 65 72 73 69 |he TPU-e|dt versi|
|00001b80| 6f 6e 20 74 68 61 74 20 | 72 65 73 70 65 63 74 73 |on that |respects|
|00001b90| 20 74 68 65 20 62 6f 74 | 74 6f 6d 20 73 63 72 6f | the bot|tom scro|
|00001ba0| 6c 6c 20 6d 61 72 67 69 | 6e 2e 22 20 22 70 22 5d |ll margi|n." "p"]|
|00001bb0| 29 0a 28 66 73 65 74 20 | 27 6e 65 77 6c 69 6e 65 |).(fset |'newline|
|00001bc0| 2d 61 6e 64 2d 69 6e 64 | 65 6e 74 20 23 5b 6e 69 |-and-ind|ent #[ni|
|00001bd0| 6c 20 22 c0 20 19 c2 20 | 88 c3 09 c4 5c 22 29 87 |l ". .. |....\").|
|00001be0| 22 20 5b 74 70 75 2d 63 | 75 72 72 65 6e 74 2d 6c |" [tpu-c|urrent-l|
|00001bf0| 69 6e 65 20 62 65 67 20 | 74 70 75 2d 6f 6c 64 2d |ine beg |tpu-old-|
|00001c00| 6e 65 77 6c 69 6e 65 2d | 61 6e 64 2d 69 6e 64 65 |newline-|and-inde|
|00001c10| 6e 74 20 74 70 75 2d 62 | 6f 74 74 6f 6d 2d 63 68 |nt tpu-b|ottom-ch|
|00001c20| 65 63 6b 20 31 5d 20 33 | 20 22 5c 0a 49 6e 73 65 |eck 1] 3| "\.Inse|
|00001c30| 72 74 20 61 20 6e 65 77 | 6c 69 6e 65 2c 20 74 68 |rt a new|line, th|
|00001c40| 65 6e 20 69 6e 64 65 6e | 74 20 61 63 63 6f 72 64 |en inden|t accord|
|00001c50| 69 6e 67 20 74 6f 20 6d | 61 6a 6f 72 20 6d 6f 64 |ing to m|ajor mod|
|00001c60| 65 2e 0a 49 6e 64 65 6e | 74 61 74 69 6f 6e 20 69 |e..Inden|tation i|
|00001c70| 73 20 64 6f 6e 65 20 75 | 73 69 6e 67 20 74 68 65 |s done u|sing the|
|00001c80| 20 63 75 72 72 65 6e 74 | 20 69 6e 64 65 6e 74 2d | current| indent-|
|00001c90| 6c 69 6e 65 2d 66 75 6e | 63 74 69 6f 6e 2e 0a 49 |line-fun|ction..I|
|00001ca0| 6e 20 70 72 6f 67 72 61 | 6d 6d 69 6e 67 20 6c 61 |n progra|mming la|
|00001cb0| 6e 67 75 61 67 65 20 6d | 6f 64 65 73 2c 20 74 68 |nguage m|odes, th|
|00001cc0| 69 73 20 69 73 20 74 68 | 65 20 73 61 6d 65 20 61 |is is th|e same a|
|00001cd0| 73 20 54 41 42 2e 0a 49 | 6e 20 73 6f 6d 65 20 74 |s TAB..I|n some t|
|00001ce0| 65 78 74 20 6d 6f 64 65 | 73 2c 20 77 68 65 72 65 |ext mode|s, where|
|00001cf0| 20 54 41 42 20 69 6e 73 | 65 72 74 73 20 61 20 74 | TAB ins|erts a t|
|00001d00| 61 62 2c 20 74 68 69 73 | 20 69 6e 64 65 6e 74 73 |ab, this| indents|
|00001d10| 0a 74 6f 20 74 68 65 20 | 73 70 65 63 69 66 69 65 |.to the |specifie|
|00001d20| 64 20 6c 65 66 74 2d 6d | 61 72 67 69 6e 20 63 6f |d left-m|argin co|
|00001d30| 6c 75 6d 6e 2e 20 20 54 | 68 69 73 20 69 73 20 74 |lumn.  T|his is t|
|00001d40| 68 65 20 54 50 55 2d 65 | 64 74 0a 76 65 72 73 69 |he TPU-e|dt.versi|
|00001d50| 6f 6e 20 74 68 61 74 20 | 72 65 73 70 65 63 74 73 |on that |respects|
|00001d60| 20 74 68 65 20 62 6f 74 | 74 6f 6d 20 73 63 72 6f | the bot|tom scro|
|00001d70| 6c 6c 20 6d 61 72 67 69 | 6e 2e 22 20 6e 69 6c 5d |ll margi|n." nil]|
|00001d80| 29 0a 28 66 73 65 74 20 | 27 64 6f 2d 61 75 74 6f |).(fset |'do-auto|
|00001d90| 2d 66 69 6c 6c 20 23 5b | 6e 69 6c 20 22 c0 20 19 |-fill #[|nil ". .|
|00001da0| c2 20 88 c3 09 c4 5c 22 | 29 87 22 20 5b 74 70 75 |. ....\"|)." [tpu|
|00001db0| 2d 63 75 72 72 65 6e 74 | 2d 6c 69 6e 65 20 62 65 |-current|-line be|
|00001dc0| 67 20 74 70 75 2d 6f 6c | 64 2d 64 6f 2d 61 75 74 |g tpu-ol|d-do-aut|
|00001dd0| 6f 2d 66 69 6c 6c 20 74 | 70 75 2d 62 6f 74 74 6f |o-fill t|pu-botto|
|00001de0| 6d 2d 63 68 65 63 6b 20 | 31 5d 20 33 20 22 5c 0a |m-check |1] 3 "\.|
|00001df0| 54 50 55 2d 65 64 74 20 | 76 65 72 73 69 6f 6e 20 |TPU-edt |version |
|00001e00| 74 68 61 74 20 72 65 73 | 70 65 63 74 73 20 74 68 |that res|pects th|
|00001e10| 65 20 62 6f 74 74 6f 6d | 20 73 63 72 6f 6c 6c 20 |e bottom| scroll |
|00001e20| 6d 61 72 67 69 6e 2e 22 | 5d 29 0a 28 66 73 65 74 |margin."|]).(fset|
|00001e30| 20 27 74 70 75 2d 73 65 | 74 2d 73 63 72 6f 6c 6c | 'tpu-se|t-scroll|
|00001e40| 2d 6d 61 72 67 69 6e 73 | 20 23 5b 28 74 6f 70 20 |-margins| #[(top |
|00001e50| 62 6f 74 74 6f 6d 29 20 | 22 08 c1 98 ac 9d 08 c2 |bottom) |".......|
|00001e60| c3 4f c4 98 ab 87 c5 08 | 21 16 06 aa 8e c5 08 21 |.O......|!......!|
|00001e70| c7 5f c8 20 5c 5c 53 c8 | 20 a5 16 06 0e 09 c1 98 |._. \\S.| .......|
|00001e80| ac a0 0e 09 c2 c3 4f c4 | 98 ab 88 c5 0e 09 21 16 |......O.|......!.|
|00001e90| 5c 6e aa 8f c5 0e 09 21 | c7 5f c8 20 5c 5c 53 c8 |\n.....!|._. \\S.|
|00001ea0| 20 a5 16 5c 6e 74 ad 87 | cb cc 0e 06 0e 5c 6e 23 | ..\nt..|.....\n#|
|00001eb0| 87 22 20 5b 74 6f 70 20 | 22 22 20 2d 31 20 6e 69 |." [top |"" -1 ni|
|00001ec0| 6c 20 22 25 22 20 73 74 | 72 69 6e 67 2d 74 6f 2d |l "%" st|ring-to-|
|00001ed0| 69 6e 74 20 74 70 75 2d | 74 6f 70 2d 73 63 72 6f |int tpu-|top-scro|
|00001ee0| 6c 6c 2d 6d 61 72 67 69 | 6e 20 31 30 30 20 77 69 |ll-margi|n 100 wi|
|00001ef0| 6e 64 6f 77 2d 68 65 69 | 67 68 74 20 62 6f 74 74 |ndow-hei|ght bott|
|00001f00| 6f 6d 20 74 70 75 2d 62 | 6f 74 74 6f 6d 2d 73 63 |om tpu-b|ottom-sc|
|00001f10| 72 6f 6c 6c 2d 6d 61 72 | 67 69 6e 20 6d 65 73 73 |roll-mar|gin mess|
|00001f20| 61 67 65 20 22 53 63 72 | 6f 6c 6c 20 6d 61 72 67 |age "Scr|oll marg|
|00001f30| 69 6e 73 20 73 65 74 2e | 20 20 54 6f 70 20 3d 20 |ins set.|  Top = |
|00001f40| 25 73 25 25 2c 20 42 6f | 74 74 6f 6d 20 3d 20 25 |%s%%, Bo|ttom = %|
|00001f50| 73 25 25 22 5d 20 34 20 | 22 5c 0a 53 65 74 20 73 |s%%"] 4 |"\.Set s|
|00001f60| 63 72 6f 6c 6c 20 6d 61 | 72 67 69 6e 73 2e 22 20 |croll ma|rgins." |
|00001f70| 22 73 45 6e 74 65 72 20 | 74 6f 70 20 73 63 72 6f |"sEnter |top scro|
|00001f80| 6c 6c 20 6d 61 72 67 69 | 6e 20 28 4e 20 6c 69 6e |ll margi|n (N lin|
|00001f90| 65 73 20 6f 72 20 4e 25 | 25 20 6f 72 20 52 45 54 |es or N%|% or RET|
|00001fa0| 55 52 4e 20 66 6f 72 20 | 63 75 72 72 65 6e 74 20 |URN for |current |
|00001fb0| 76 61 6c 75 65 29 3a 20 | 5c 6e 73 45 6e 74 65 72 |value): |\nsEnter|
|00001fc0| 20 62 6f 74 74 6f 6d 20 | 73 63 72 6f 6c 6c 20 6d | bottom |scroll m|
|00001fd0| 61 72 67 69 6e 20 28 4e | 20 6c 69 6e 65 73 20 6f |argin (N| lines o|
|00001fe0| 72 20 4e 25 25 20 6f 72 | 20 52 45 54 55 52 4e 20 |r N%% or| RETURN |
|00001ff0| 66 6f 72 20 63 75 72 72 | 65 6e 74 20 76 61 6c 75 |for curr|ent valu|
|00002000| 65 29 3a 20 22 5d 29 0a | 28 66 73 65 74 20 27 74 |e): "]).|(fset 't|
|00002010| 70 75 2d 73 65 74 2d 63 | 75 72 73 6f 72 2d 66 72 |pu-set-c|ursor-fr|
|00002020| 65 65 20 23 5b 6e 69 6c | 20 22 c0 11 c2 c3 c4 0d |ee #[nil| "......|
|00002030| 23 88 c6 c7 21 87 22 20 | 5b 74 20 74 70 75 2d 63 |#...!." |[t tpu-c|
|00002040| 75 72 73 6f 72 2d 66 72 | 65 65 20 73 75 62 73 74 |ursor-fr|ee subst|
|00002050| 69 74 75 74 65 2d 6b 65 | 79 2d 64 65 66 69 6e 69 |itute-ke|y-defini|
|00002060| 74 69 6f 6e 20 74 70 75 | 2d 73 65 74 2d 63 75 72 |tion tpu|-set-cur|
|00002070| 73 6f 72 2d 66 72 65 65 | 20 74 70 75 2d 73 65 74 |sor-free| tpu-set|
|00002080| 2d 63 75 72 73 6f 72 2d | 62 6f 75 6e 64 20 47 4f |-cursor-|bound GO|
|00002090| 4c 44 2d 6d 61 70 20 6d | 65 73 73 61 67 65 20 22 |LD-map m|essage "|
|000020a0| 54 68 65 20 63 75 72 73 | 6f 72 20 77 69 6c 6c 20 |The curs|or will |
|000020b0| 6e 6f 77 20 6d 6f 76 65 | 20 66 72 65 65 6c 79 20 |now move| freely |
|000020c0| 61 62 6f 75 74 20 74 68 | 65 20 73 63 72 65 65 6e |about th|e screen|
|000020d0| 2e 22 5d 20 34 20 22 5c | 0a 41 6c 6c 6f 77 20 74 |."] 4 "\|.Allow t|
|000020e0| 68 65 20 63 75 72 73 6f | 72 20 74 6f 20 6d 6f 76 |he curso|r to mov|
|000020f0| 65 20 66 72 65 65 6c 79 | 20 61 62 6f 75 74 20 74 |e freely| about t|
|00002100| 68 65 20 73 63 72 65 65 | 6e 2e 22 20 6e 69 6c 5d |he scree|n." nil]|
|00002110| 29 0a 28 66 73 65 74 20 | 27 74 70 75 2d 73 65 74 |).(fset |'tpu-set|
|00002120| 2d 63 75 72 73 6f 72 2d | 62 6f 75 6e 64 20 23 5b |-cursor-|bound #[|
|00002130| 6e 69 6c 20 22 c0 20 88 | c1 12 c3 c4 c5 0e 06 23 |nil ". .|.......#|
|00002140| 88 c7 c8 21 87 22 20 5b | 70 69 63 74 75 72 65 2d |...!." [|picture-|
|00002150| 63 6c 65 61 6e 20 6e 69 | 6c 20 74 70 75 2d 63 75 |clean ni|l tpu-cu|
|00002160| 72 73 6f 72 2d 66 72 65 | 65 20 73 75 62 73 74 69 |rsor-fre|e substi|
|00002170| 74 75 74 65 2d 6b 65 79 | 2d 64 65 66 69 6e 69 74 |tute-key|-definit|
|00002180| 69 6f 6e 20 74 70 75 2d | 73 65 74 2d 63 75 72 73 |ion tpu-|set-curs|
|00002190| 6f 72 2d 62 6f 75 6e 64 | 20 74 70 75 2d 73 65 74 |or-bound| tpu-set|
|000021a0| 2d 63 75 72 73 6f 72 2d | 66 72 65 65 20 47 4f 4c |-cursor-|free GOL|
|000021b0| 44 2d 6d 61 70 20 6d 65 | 73 73 61 67 65 20 22 54 |D-map me|ssage "T|
|000021c0| 68 65 20 63 75 72 73 6f | 72 20 69 73 20 6e 6f 77 |he curso|r is now|
|000021d0| 20 62 6f 75 6e 64 20 74 | 6f 20 74 68 65 20 66 6c | bound t|o the fl|
|000021e0| 6f 77 20 6f 66 20 79 6f | 75 72 20 74 65 78 74 2e |ow of yo|ur text.|
|000021f0| 22 5d 20 34 20 22 5c 0a | 43 6f 6e 73 74 72 61 69 |"] 4 "\.|Constrai|
|00002200| 6e 20 74 68 65 20 63 75 | 72 73 6f 72 20 74 6f 20 |n the cu|rsor to |
|00002210| 74 68 65 20 66 6c 6f 77 | 20 6f 66 20 74 68 65 20 |the flow| of the |
|00002220| 74 65 78 74 2e 22 20 6e | 69 6c 5d 29 0a          |text." n|il]).   |
+--------+-------------------------+-------------------------+--------+--------+